
[INIT]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE "dgn\*.lve"

[PRE]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[OPEN]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[POST]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE  "=== PrjData ===\data\rulefiles\K_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_WMS*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Dr*.csv"
  DELETE  "=== PrjData ===\data\*.drawlist.xml"
  DELETE  "=== PrjData ===\data\C STI.view.xml"
  DELETE  "=== PrjData ===\data\D.Kty - na vydn.view.xml"
  REWRITE "=== PrjData ===\data\pln DM dle SDC.drawlist.xml"
  REWRITE "=== PrjData ===\cfg\pntmgr.xml"
  REWRITE "=== PrjData ===\cfg\lastview.xml"
  REWRITE "=== PrjData ===\cfg\Export vkres dle SDC.drwexport.xml"
  REWRITE "=== PrjData ===\cfg\Bodov zvisl objekty.pntmgrobjsel.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrimport.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SDC M20 MP005 - s kdy.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SDC M20 MP005 - bez kd.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup men SDC bez kd blok char. bez hlaviky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup men SDC s kdy blok char. bez hlaviky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SDC M20 MP005 - s kdy.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup SDC M20 MP005 - bez kd.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Protokol peslovanch bod.pntmgrexport.xml"

[FINAL]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  EXECUTE SQL UPDATE NavestidB SET pres=null where pres='nzz'
  EXECUTE SQL UPDATE JZM_B SET jzm_var1=null WHERE jzm_var1 IN(33,41,56)
  EXECUTE SQL UPDATE JZM_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidL SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Rychlostniky SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET Vybava07=UPPER(Vybava07), Vybava08=UPPER(Vybava08), Vybava09=UPPER(Vybava09), Vybava10=UPPER(Vybava10), Vybava11=UPPER(Vybava11), Vybava12=UPPER(Vybava12) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE NavestidB SET Vybava01=UPPER(Vybava01), Vybava02=UPPER(Vybava02), Vybava03=UPPER(Vybava03), Vybava04=UPPER(Vybava04), Vybava05=UPPER(Vybava05), Vybava06=UPPER(Vybava06) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE Tech_L SET Jev='070' WHERE ObjCode='20011' AND popis='odv' AND (Jev IS null OR LENGTH(TRIM(Jev))=0)
  EXECUTE SQL UPDATE Kolej_L SET KCD='V' WHERE jev='097' AND KCD='H'
